409
How can I display a different caption in the label area

with AxComboBox1 do
begin
	BeginUpdate();
	Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
	IntegralHeight := True;
	HeaderVisible := False;
	SingleEdit := True;
	SearchColumnIndex := -1;
	AdjustSearchColumn := False;
	(Columns.Add('Language') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
	with Items do
	begin
		AddItem('English');
		AddItem('Hebrew');
		AddItem('Spanish');
	end;
	LabelText := ' <b>custom</b> text ';
	EndUpdate();
end
160
How can I display a custom size picture to a cell or item

with AxComboBox1 do
begin
	DefaultItemHeight := 48;
	Columns.Add('C1');
	with Items do
	begin
		CellPicture[TObject(AddItem('Text')),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	end;
end
210
How can I display a computed column and highlight some values that are negative or less than a value

with AxComboBox1 do
begin
	Columns.Add('A');
	Columns.Add('B');
	(Columns.Add('(A+B)*1.19') as EXCOMBOBOXLib.Column).ComputedField := '(%0 + %1) * 1.19';
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
	end;
	var_ConditionalFormat := ConditionalFormats.Add('%2 > 10',Nil);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum($2);
	end;
end
276
How can I display a button inside the item or cell

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := ' Button 1 ';
		CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
		CellHasButton[TObject(h),TObject(1)] := True;
		h := AddItem('Cell 2');
		CellCaption[TObject(h),TObject(1)] := ' Button 2 ';
		CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
		CellHasButton[TObject(h),TObject(1)] := True;
	end;
end
203
How can I customize the items being displayed in the drop down filter window

with AxComboBox1 do
begin
	with (Columns.Add('Custom Filter') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		CustomFilter := 'Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.t' + 
	'xt|*.log';
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
		Filter := '*.xls';
	end;
	Items.AddItem('excel.xls');
	Items.AddItem('word.doc');
	Items.AddItem('pp.pps');
	Items.AddItem('text.txt');
	ApplyFilter();
end
549
How can I create a new ADO recordset

with AxComboBox1 do
begin
	BeginUpdate();
	rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADODB.Recordset')) as ADODB.Recordset);
	with rs do
	begin
		Fields.Append('A',8,Nil,Nil,Nil);
		Fields.Append('B',8,Nil,Nil,Nil);
		Open(Nil,Nil,Nil,Nil,Nil);
		AddNew(Nil,Nil);
		Fields.Item['A'].Value := 'Item A.1';
		Fields.Item['B'].Value := 'Item B.1';
		Update(Nil,Nil);
		AddNew(Nil,Nil);
		Fields.Item['A'].Value := 'Item A.2';
		Fields.Item['B'].Value := 'Item B.2';
		Update(Nil,Nil);
	end;
	DataSource := (rs as ADODB.Recordset);
	Value := 'Item A.1';
	EndUpdate();
end
372
How can I convert the expression to a string so I can look into the date string expression for month's name

with AxComboBox1 do
begin
	Columns.Add('Number');
	(Columns.Add('Str') as EXCOMBOBOXLib.Column).ComputedField := 'str(%0) + '' AA''';
	with Items do
	begin
		AddItem('-1.98');
		AddItem('0.99');
		AddItem('1.23');
		AddItem('2.34');
	end;
end
427
How can I collapse all items

with AxComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Items');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[0] := False;
	end;
	EndUpdate();
end
340
How can I close the drop down window when user double clicks it

with AxComboBox1 do
begin
	CloseOnDblClk := True;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
	end;
end
384
How can I check the hour part only so I know it was afternoon

with AxComboBox1 do
begin
	ConditionalFormats.Add('hour(%0)>=12',Nil).Bold := True;
	Columns.Add('Date');
	(Columns.Add('Hour') as EXCOMBOBOXLib.Column).ComputedField := 'hour(%0)';
	with Items do
	begin
		AddItem('1/11/2001 10:00:00 AM');
		AddItem('2/22/2002 11:00:00 AM');
		AddItem('3/13/2003 12:00:00 PM');
		AddItem('4/14/2004 1:00:00 PM');
	end;
end
4
How can I change/rename the column's name

with AxComboBox1 do
begin
	(Columns.Add('ColumnName') as EXCOMBOBOXLib.Column).Caption := 'NewName';
end
134
How can I change the width of the columns being displayed in the sort bar

with AxComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
	(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
end
510
How can I change the visual appearance of the filter bar's close button (solid)

with AxComboBox1 do
begin
	BeginUpdate();
	(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
	with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		AddItem('Item B');
		AddItem('Item C');
	end;
	FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$ff);
	EndUpdate();
end
511
How can I change the visual appearance of the filter bar's close button (EBN)

with AxComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJj' + 
	'yI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmS' + 
	'ZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8ORO' + 
	'icbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2D' + 
	'YxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXA' + 
	'iAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJ' + 
	'DCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0' + 
	'TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAk' + 
	'jIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSM' + 
	'RsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQ' + 
	'HkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ');
	end;
	(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
	with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		AddItem('Item B');
		AddItem('Item C');
	end;
	FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$1000000);
	EndUpdate();
end
131
How can I change the visual appearance of the control's sort bar, using EBN files

with AxComboBox1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	SortBarVisible := True;
	(GetOcx() as EXCOMBOBOXLib.ComboBox).BackColorSortBar := $1000000;
	(GetOcx() as EXCOMBOBOXLib.ComboBox).BackColorSortBarCaption := $2000000;
	Appearance := EXCOMBOBOXLib.AppearanceEnum.None2;
end
499
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

with AxComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(3,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' + 
	'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' + 
	'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' + 
	'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
		Add(1,'CP:3 -2 -2 2 2');
		Add(4,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' + 
	'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' + 
	'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' + 
	'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
		Add(2,'CP:4 -2 -2 2 2');
	end;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
	HasButtons := EXCOMBOBOXLib.ExpandButtonEnum.exCustom;
	set_HasButtonsCustom(False,16777216);
	set_HasButtonsCustom(True,33554432);
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child');
	end;
	EndUpdate();
end
498
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

with AxComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'XP:TREEVIEW 2 1');
		Add(2,'XP:TREEVIEW 2 2');
	end;
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphOpen,$1000000);
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphClose,$2000000);
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child');
	end;
	EndUpdate();
end
496
How can I change the visual appearance of the +/- buttons (method 1)

with AxComboBox1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgX' + 
	'IcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRg' + 
	'wZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMI' + 
	'NCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=');
		Add(2,'gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSB' + 
	'cQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfD' + 
	'xXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4l' + 
	'lWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEe' + 
	'Bkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOF' + 
	'SFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJ' + 
	'tDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=');
	end;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphOpen,$1000000);
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exTreeGlyphClose,$2000000);
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child');
	end;
	EndUpdate();
end
275
How can I change the state of a radio button

with AxComboBox1 do
begin
	MarkSearchColumn := False;
	SelBackColor := Color.FromArgb(255,255,128);
	SelForeColor := Color.FromArgb(0,0,0);
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Radio 1';
		CellHasRadioButton[TObject(h),TObject(1)] := True;
		CellRadioGroup[TObject(h),TObject(1)] := 1234;
		CellCaption[TObject(h),TObject(2)] := 'Radio 2';
		CellHasRadioButton[TObject(h),TObject(2)] := True;
		CellRadioGroup[TObject(h),TObject(2)] := 1234;
		CellState[TObject(h),TObject(1)] := 1;
	end;
end
273
How can I change the state of a checkbox

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Check Box';
		CellHasCheckBox[TObject(h),TObject(1)] := True;
		CellState[TObject(h),TObject(1)] := 1;
	end;
end
132
How can I change the sort bar's foreground color

with AxComboBox1 do
begin
	SortBarVisible := True;
	ForeColorSortBar := Color.FromArgb(255,0,0);
end
130
How can I change the sort bar's background color

with AxComboBox1 do
begin
	SortBarVisible := True;
	BackColorSortBar := Color.FromArgb(255,0,0);
	BackColorSortBarCaption := Color.FromArgb(128,0,0);
end
289
How can I change the size ( width, height ) of the picture

with AxComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		CellPictureWidth[TObject(h),TObject(0)] := 24;
		CellPictureHeight[TObject(h),TObject(0)] := 24;
		ItemHeight[h] := 32;
		h := AddItem('Root 2');
		CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		ItemHeight[h] := 48;
	end;
end
32
How can I change the position of the column

with AxComboBox1 do
begin
	Columns.Add('Column 1');
	(Columns.Add('Column 2') as EXCOMBOBOXLib.Column).Position := 0;
end
298
How can I change the position of an item

with AxComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		ItemPosition[AddItem('Item 3')] := 0;
	end;
end
202
How can I change the order or the position of the columns in the sort bar

with AxComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
	(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
	Columns.Item['C2'].SortPosition := 0;
end
48
How can I change the name of the week days in the drop down calendar window, being displayed when I filter items between dates

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
	end;
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateWeekDays,'Du Lu Ma Mi Jo Vi Si');
	ApplyFilter();
end
47
How can I change the name of the months in the drop down calendar window, being displayed when I filter items between dates

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
	end;
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateMonths,'Janvier F vrier Mars Avril Mai Juin Juillet Ao t Septembre Octobre Novembre D cembre');
	ApplyFilter();
end
133
How can I change the height of the sort bar's

with AxComboBox1 do
begin
	SortBarVisible := True;
	SortBarHeight := 48;
end
252
How can I change the height for all items

with AxComboBox1 do
begin
	DefaultItemHeight := 32;
	Columns.Add('Column');
	Items.AddItem('One');
	Items.AddItem('Two');
end
124
How can I change the header's background color, when multiple levels are displayed

with AxComboBox1 do
begin
	BackColorLevelHeader := Color.FromArgb(250,0,0);
	(Columns.Add('S') as EXCOMBOBOXLib.Column).Width := 32;
	(Columns.Add('Level 1') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 2') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 3') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
end
344
How can I change the foreground color for edit controls

with AxComboBox1 do
begin
	ForeColorEdit := Color.FromArgb(255,0,0);
	IntegralHeight := True;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
	end;
	set_Select(TObject(0),'Root 1.1');
end
215
How can I change the foreground color for all cells in the column

with AxComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
424
How can I change the foreground color for a particular column

with AxComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderForeColor] := TObject(8439039);
		Add('Column 3');
	end;
end
300
How can I change the font for entire item
with AxComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('default font');
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with Items do
	begin
		ItemFont[AddItem('new font')] := (f as stdole.StdFont);
	end;
end
217
How can I change the font for all cells in the entire column

with AxComboBox1 do
begin
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with ConditionalFormats.Add('1',Nil) do
	begin
		Font := (f as stdole.StdFont);
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
302
How can I change the font for a cell

with AxComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('std font');
	with Items do
	begin
		CellCaptionFormat[TObject(AddItem('this <font tahoma;12>is a bit of text with</font> a different font')),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
	end;
end
301
How can I change the font for a cell

with AxComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('default font');
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with Items do
	begin
		CellFont[TObject(AddItem('new font')),TObject(0)] := (f as stdole.StdFont);
	end;
end
129
How can I change the default caption being displayed in the control's sort bar

with AxComboBox1 do
begin
	SortBarVisible := True;
	SortBarCaption := 'new caption';
end
95
How can I change the control's font

with AxComboBox1 do
begin
	Font.Name := 'Tahoma';
	Columns.Add('Column');
end
13
How can I change the column's width

with AxComboBox1 do
begin
	ColumnAutoResize := False;
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Width := 64;
	(Columns.Add('Column 2') as EXCOMBOBOXLib.Column).Width := 128;
end
455
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column

with AxComboBox1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with ConditionalFormats.Add('1',Nil) do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum($1);
	end;
	Columns.Add('C1');
	with (Columns.Add('C2') as EXCOMBOBOXLib.Column) do
	begin
		HeaderBold := True;
		HTMLCaption := '<fgcolor=FF0000>C2';
	end;
	with Items do
	begin
		CellCaption[TObject(AddItem(TObject(10))),TObject(1)] := TObject(11);
		CellCaption[TObject(AddItem(TObject(12))),TObject(1)] := TObject(13);
	end;
	EndUpdate();
end
314
How can I change the color for separator / dividers items

with AxComboBox1 do
begin
	MarkSearchColumn := False;
	TreeColumnIndex := -1;
	ScrollBySingleLine := False;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
		h := AddItem(Nil);
		ItemDivider[h] := 0;
		ItemDividerLine[h] := EXCOMBOBOXLib.DividerLineEnum.DoubleDotLine;
		ItemDividerLineAlignment[h] := EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter;
		ItemHeight[h] := 6;
		SelectableItem[h] := False;
		h := AddItem('Cell 2');
		CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
	end;
end
359
How can I change the background color or the visual appearance using ebn for a particular column

with AxComboBox1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(16777216);
		(Add('Column 3') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(16777471);
		Add('Column 4');
	end;
end
407
How can I change the background color for the filter field in the bottom part of the drop down portion

with AxComboBox1 do
begin
	BeginUpdate();
	FilterForVisible := True;
	FilterForBackColor := Color.FromArgb(240,240,240);
	IntegralHeight := True;
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		AddItem('Item 4');
		AddItem('Item 5');
	end;
	EndUpdate();
end
343
How can I change the background color for edit controls

with AxComboBox1 do
begin
	BackColorEdit := Color.FromArgb(255,0,0);
	IntegralHeight := True;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
	TreeColumnIndex := 1;
	Columns.Add('Column 1');
	Columns.Add('Column 2');
	with Items do
	begin
		h := AddItem('Root 1.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 2.1')),TObject(1)] := 'Child 2.2';
		ExpandItem[h] := True;
		h := AddItem('Root 2.1');
		CellCaption[TObject(h),TObject(1)] := 'Root 2.2';
		CellCaption[TObject(InsertItem(h,Nil,'Child 1.1')),TObject(1)] := 'Child 1.2';
	end;
	set_Select(TObject(0),'Root 1.1');
end
216
How can I change the background color for all cells in the column

with AxComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		BackColor := $ff;
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
358
How can I change the background color for a particular column

with AxComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
		Add('Column 3');
	end;
end
423
How can I change the background color for a particular column

with AxComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		(Add('Column 2') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderBackColor] := TObject(8439039);
		Add('Column 3');
	end;
end
408
How can I change the background appearance (ebn) for the filter field in the bottom part of the drop down portion

with AxComboBox1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	FilterForVisible := True;
	(GetOcx() as EXCOMBOBOXLib.ComboBox).FilterForBackColor := $1000000;
	IntegralHeight := True;
	Columns.Add('Default');
	with Items do
	begin
		AddItem('Item 1');
		AddItem('Item 2');
		AddItem('Item 3');
		AddItem('Item 4');
		AddItem('Item 5');
	end;
	EndUpdate();
end
50
How can I change the "IsChecked/IsUnchecked" caption in the control's filter bar, when I filter for checked items

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
		Filter := 0;
	end;
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsChecked,'Check_On');
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsUnchecked,'Check_Off');
	ApplyFilter();
end
35
How can I change the "Filter For" caption in the column's drop down filter window

with AxComboBox1 do
begin
	(Columns.Add('Column') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarFilterForCaption,'new caption');
end
49
How can I change the "Checked" caption in the drop down filter window, when I filter for checked items

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
	end;
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarChecked,'with check on');
	set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarUnchecked,'with check off');
end
231
How can I change at runtime the parent of the item

with AxComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		hP := AddItem('Root');
		hC := AddItem('Child');
		SetParent(hC,hP);
	end;
end
57
How can I can I select programmatically "Blanks/NonBlanks" option in the column's drop down filter

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exBlanks;
	end;
	ApplyFilter();
end
61
How can I can I programmatically filter the checked items

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
		Filter := 0;
	end;
	Items.AddItem(TObject(0));
	with Items do
	begin
		CellState[TObject(AddItem(TObject(1))),TObject(0)] := 1;
	end;
	Items.AddItem(TObject(2));
	ApplyFilter();
end
62
How can I can I programmatically filter for items with a specified icon assigned

with AxComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exImage;
		Filter := 1;
	end;
	with Items do
	begin
		CellImage[TObject(AddItem('Image 1')),TObject(0)] := 1;
		CellImage[TObject(AddItem('Image 1')),TObject(0)] := 1;
		CellImage[TObject(AddItem('Image 2')),TObject(0)] := 2;
		CellImage[TObject(AddItem('Image 3')),TObject(0)] := 3;
	end;
	ApplyFilter();
end
60
How can I can I filter programmatically the items based on some numerichal rules

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exNumeric;
		Filter := '> 0 <= 1';
	end;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
	Items.AddItem(TObject(2));
	ApplyFilter();
end
59
How can I can I filter programmatically the items based on a range/interval of dates

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterDate := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exDate;
		Filter := '1/1/2001 to 1/1/2002';
	end;
	Items.AddItem('1/1/2001');
	Items.AddItem('2/1/2002');
	ApplyFilter();
end
58
How can I can I filter programmatically given a specified pattern using wild characters like * or

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
		Filter := '0*';
	end;
	Items.AddItem(TObject(0));
	Items.AddItem('00');
	Items.AddItem(TObject(1));
	Items.AddItem('11');
	ApplyFilter();
end
555
How can I build a "virtual" tree using your control

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
procedure TWinForm1.AxComboBox1_BeforeExpandItem(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_BeforeExpandItemEvent);
begin
	with AxComboBox1 do
	begin
		with Items do
		begin
			ItemHasChildren[InsertItem(e.item,Nil,'new')] := True;
		end;
	end
end;

with AxComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Style := EXCOMBOBOXLib.StyleEnum.DropDown;
	Columns.Add('Def');
	with Items do
	begin
		AddItem('Item 1');
		ItemHasChildren[AddItem('Item 2')] := True;
		AddItem('Item 3');
	end;
	Value := 'Item 2';
	EndUpdate();
end
363
How can I bold the items that contains data or those who displays empty strings

with AxComboBox1 do
begin
	ConditionalFormats.Add('not len(%1)=0',Nil).Bold := True;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		hC := InsertItem(h,Nil,'Child 2');
		CellCaption[TObject(hC),TObject(1)] := '1';
		InsertItem(h,Nil,'Child 3');
		ExpandItem[h] := True;
	end;
end
211
How can I bold the entire column

with AxComboBox1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ApplyTo := EXCOMBOBOXLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
25
How can I bold only a portion of the column's header

with AxComboBox1 do
begin
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<b>Col</b>umn 1';
end
269
How can I associate an extra data to a cell

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Cell 2';
		CellData[TObject(h),TObject(1)] := 'your extra data';
	end;
end
280
How can I assign multiple icons/pictures to a cell

with AxComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root <img>1</img> 1, <img>2</img>, ... and so on ');
		CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
	end;
end
279
How can I assign multiple icons/pictures to a cell

with AxComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellImages[TObject(h),TObject(0)] := '1,2,3';
	end;
end
282
How can I assign multiple icon/picture to a cell

with AxComboBox1 do
begin
	set_HTMLPicture('p1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('p2','c:\exontrol\images\auction.gif');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('text <img>p1</img> another picture <img>p2</img> and so on');
		CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
		CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\colorize.gif`)');
		ItemHeight[h] := 48;
		AddItem('Root 2');
	end;
end
14
How can I assign checkboxes for the entire column

with AxComboBox1 do
begin
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
	Items.AddItem(TObject(2));
end
281
How can I assign an icon/picture to a cell

with AxComboBox1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellPicture[TObject(h),TObject(0)] := AxComboBox1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		ItemHeight[h] := 48;
		AddItem('Root 2');
	end;
end
278
How can I assign an icon/picture to a cell

with AxComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		CellImage[TObject(h),TObject(0)] := 1;
		CellImage[TObject(InsertItem(h,Nil,'Child 1')),TObject(0)] := 2;
		CellImage[TObject(InsertItem(h,Nil,'Child 2')),TObject(0)] := 3;
		ExpandItem[h] := True;
	end;
end
270
How can I assign a tooltip to a cell

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'tooltip';
		CellToolTip[TObject(h),TObject(1)] := 'This is bit of text that''s shown when the user hovers the cell';
	end;
end
274
How can I assign a radio button to a cell

with AxComboBox1 do
begin
	MarkSearchColumn := False;
	SelBackColor := Color.FromArgb(255,255,128);
	SelForeColor := Color.FromArgb(0,0,0);
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Radio 1';
		CellHasRadioButton[TObject(h),TObject(1)] := True;
		CellRadioGroup[TObject(h),TObject(1)] := 1234;
		CellCaption[TObject(h),TObject(2)] := 'Radio 2';
		CellHasRadioButton[TObject(h),TObject(2)] := True;
		CellRadioGroup[TObject(h),TObject(2)] := 1234;
		CellState[TObject(h),TObject(1)] := 1;
	end;
end
16
How can I assign a different background color for the entire column

with AxComboBox1 do
begin
	MarkSearchColumn := False;
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellBackColor] := TObject(255);
	Columns.Add('Column 2');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
	Items.AddItem(TObject(2));
end
272
How can I assign a checkbox to a cell

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Check Box';
		CellHasCheckBox[TObject(h),TObject(1)] := True;
	end;
end
15
How can I assign a check box for a cell

with AxComboBox1 do
begin
	Columns.Add('Column 1');
	with Items do
	begin
		AddItem(TObject(0));
		CellHasCheckBox[TObject(AddItem(TObject(1))),TObject(0)] := True;
		AddItem(TObject(2));
	end;
end
30
How can I apply an strikeout font only a portion of the column's header

with AxComboBox1 do
begin
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<s>Col</s>umn 1';
end
27
How can I apply an italic font only a portion of the column's header

with AxComboBox1 do
begin
	(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HTMLCaption := '<i>Col</i>umn 1';
end
353
How can I align the text/caption on the scroll bar

with AxComboBox1 do
begin
	set_ScrollPartCaption(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLowerBackPart,'left');
	set_ScrollPartCaptionAlignment(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLowerBackPart,EXCOMBOBOXLib.AlignmentEnum.LeftAlignment);
	set_ScrollPartCaption(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exUpperBackPart,'right');
	set_ScrollPartCaptionAlignment(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exUpperBackPart,EXCOMBOBOXLib.AlignmentEnum.RightAlignment);
	ColumnAutoResize := False;
	Columns.Add(1);
	Columns.Add(2);
	Columns.Add(3);
	Columns.Add(4);
	Columns.Add(5);
	Columns.Add(6);
end
183
How can I align the icon in the column's header in the center

with AxComboBox1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('') as EXCOMBOBOXLib.Column) do
	begin
		HeaderImage := 1;
		HeaderImageAlignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
	end;
end
177
How can I align the column to the right, and its caption too

with AxComboBox1 do
begin
	with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
	begin
		Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
		HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
	end;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
176
How can I align the column to the right

with AxComboBox1 do
begin
	(Columns.Add('Column') as EXCOMBOBOXLib.Column).Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
304
How can I align the cell to the left, center or to the right

with AxComboBox1 do
begin
	TreeColumnIndex := -1;
	DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
	Columns.Add('Default');
	with Items do
	begin
		CellHAlignment[TObject(AddItem('left')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.LeftAlignment;
		CellHAlignment[TObject(AddItem('center')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
		CellHAlignment[TObject(AddItem('right')),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
	end;
end
135
How can I add several columns to control's sort bar

with AxComboBox1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(Columns.Add('C1') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
	(Columns.Add('C2') as EXCOMBOBOXLib.Column).SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortDescending;
end
313
How can I add separator - dividers items

with AxComboBox1 do
begin
	MarkSearchColumn := False;
	TreeColumnIndex := -1;
	ScrollBySingleLine := False;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
		h := AddItem(Nil);
		ItemDivider[h] := 0;
		ItemDividerLine[h] := EXCOMBOBOXLib.DividerLineEnum.DoubleDotLine;
		ItemDividerLineAlignment[h] := EXCOMBOBOXLib.DividerAlignmentEnum.DividerCenter;
		ItemHeight[h] := 6;
		SelectableItem[h] := False;
		h := AddItem('Cell 2');
		CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
		CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
	end;
end
226
How can I add or insert child items

with AxComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellCaption[TObject(h),TObject(1)] := 'Cell 2';
		CellCaption[TObject(InsertItem(h,Nil,'Cell 3')),TObject(1)] := 'Cell 4';
		CellCaption[TObject(InsertItem(h,Nil,'Cell 5')),TObject(1)] := 'Cell 6';
		ExpandItem[h] := True;
	end;
end
223
How can I add or insert an item

with AxComboBox1 do
begin
	Columns.Add('Default');
	Items.AddItem('new item');
end
224
How can I add or insert an item

with AxComboBox1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		CellCaption[TObject(AddItem('Cell 1')),TObject(1)] := 'Cell 2';
		h := AddItem('Cell 3');
		CellCaption[TObject(h),TObject(1)] := 'Cell 4';
	end;
end
225
How can I add or insert a child item

with AxComboBox1 do
begin
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		InsertItem(AddItem('root'),Nil,'child');
	end;
end
464
How can I add or change the padding (spaces) for captions in the control's header

with AxComboBox1 do
begin
	BeginUpdate();
	(Columns.Add('Padding-Left') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingLeft] := TObject(18);
	with (Columns.Add('Padding-Right') as EXCOMBOBOXLib.Column) do
	begin
		Def[EXCOMBOBOXLib.DefColumnEnum.exHeaderPaddingRight] := TObject(18);
		HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
	end;
	EndUpdate();
end
3
How can I add multiple columns

with AxComboBox1 do
begin
	with Columns do
	begin
		Add('Column 1');
		Add('Column 2');
	end;
end
465
How can I add a vertical padding

with AxComboBox1 do
begin
	BeginUpdate();
	DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exAllLines;
	with (Columns.Add('Padding') as EXCOMBOBOXLib.Column) do
	begin
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(False);
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingLeft] := TObject(6);
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingRight] := TObject(6);
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingTop] := TObject(6);
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellPaddingBottom] := TObject(6);
	end;
	with Items do
	begin
		AddItem('padding');
		AddItem('padding');
	end;
	EndUpdate();
end
1
How can I add a new column

with AxComboBox1 do
begin
	Columns.Add('ColumnName');
end
454
How can I add a horizontal scroll bar

with AxComboBox1 do
begin
	BeginUpdate();
	ScrollBySingleLine := True;
	ColumnAutoResize := False;
	BackColorAlternate := Color.FromArgb(240,240,240);
	with (Columns.Add('Default') as EXCOMBOBOXLib.Column) do
	begin
		Width := 512;
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(False);
	end;
	with Items do
	begin
		AddItem('Exontrol is devoted to create innovative user interface components for Windows applications, on COM or .NET platforms, since 199' + 
	'9. "eXontrol" comes from e(s)pecial (c)ontrol, where sc makes the X. We are a vendor not a reseller, and this is the single site' + 
	' where you can try or buy our products. If you are tired of looking for "powerful" components now it''s time to show you real com' + 
	'ponents. No registration required, no nag screens, no limitations, unlimited evaluation time.');
		AddItem('A combo box is a commonly-used GUI tool. It is a combination of a drop-down list or list box and a single-line textbox, allowing' + 
	' the user either to type a value directly into the control or choose from the list of existing options.');
	end;
	EndUpdate();
end
221
How can I access the properties of a column

with AxComboBox1 do
begin
	Columns.Add('A');
	Columns.Item['A'].HeaderBold := True;
end
595
Highlight the parent items

with AxComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CC0',Nil).ForeColor := $ff;
	HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	with Columns do
	begin
		(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
		h := InsertItem(hR,Nil,'Home');
		CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Nil,'Alice');
		InsertItem(h,Nil,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Nil,'Etc');
		CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Nil,'nginx.conf');
		CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end
596
Highlight the leaf items

with AxComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CC0=0',Nil).ForeColor := $808080;
	HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	with Columns do
	begin
		(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
		h := InsertItem(hR,Nil,'Home');
		CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Nil,'Alice');
		InsertItem(h,Nil,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Nil,'Etc');
		CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Nil,'nginx.conf');
		CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end
594
Highlight the item being expanded or collapsed

with AxComboBox1 do
begin
	BeginUpdate();
	ConditionalFormats.Add('%CX0',Nil).Bold := True;
	HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
	HeaderHeight := 24;
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	with Columns do
	begin
		(Add('Item') as EXCOMBOBOXLib.Column).Width := 16;
		Add('Desc');
	end;
	with Items do
	begin
		hR := AddItem('Root');
		CellCaption[TObject(hR),TObject(1)] := 'The root directory /';
		h := InsertItem(hR,Nil,'Home');
		CellCaption[TObject(h),TObject(1)] := 'The home directory with user directories Alice and Bob';
		InsertItem(h,Nil,'Alice');
		InsertItem(h,Nil,'Bob');
		ExpandItem[h] := True;
		h := InsertItem(hR,Nil,'Etc');
		CellCaption[TObject(h),TObject(1)] := 'The etc directory with one configuration file';
		h := InsertItem(h,Nil,'nginx.conf');
		CellCaption[TObject(InsertItem(hR,Nil,'Var')),TObject(1)] := 'The var directory';
		ExpandItem[hR] := True;
	end;
	EndUpdate();
end
589
Force hover-all feature
with AxComboBox1 do
begin
	set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exScrollHoverAll,$ffffffff);
end
515
FilterBarCaption Predefined Keywords

// AfterExpandItem event - Fired after an item is expanded (collapsed).
procedure TWinForm1.AxComboBox1_AfterExpandItem(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_AfterExpandItemEvent);
begin
	with AxComboBox1 do
	begin
		Refresh();
	end
end;

with AxComboBox1 do
begin
	BeginUpdate();
	LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
	(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
	with (Columns.Add('Check') as EXCOMBOBOXLib.Column) do
	begin
		Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exCheck;
	end;
	with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
	begin
		AllowSizing := False;
		AllowSort := False;
		Width := 32;
		FormatColumn := '1 apos ``';
		Position := 0;
	end;
	with Items do
	begin
		AddItem('Item A');
		h := AddItem('Item B');
		CellState[TObject(InsertItem(h,Nil,'Sub-Item B1')),TObject(1)] := 1;
		InsertItem(h,Nil,'Sub-Item B2');
		ExpandItem[h] := True;
		AddItem('Item C');
	end;
	FilterInclude := EXCOMBOBOXLib.FilterIncludeEnum.exItemsWithChilds;
	FilterBarFont := (Font as stdole.StdFont);
	FilterBarCaption := '`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i' + 
	'></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>:' + 
	' ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><' + 
	'i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i' + 
	'></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=80' + 
	'8080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + ' + 
	'`</fgcolor>`';
	FilterBarPromptPattern := 'B';
	FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCaptionVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
	with Columns.Item[TObject(0)] do
	begin
		FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
		Filter := 'Item A|Item B';
	end;
	ApplyFilter();
	EndUpdate();
end